home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / cnet / cnet_who.lha / Who / Config < prev    next >
Text File  |  1995-10-15  |  27KB  |  272 lines
  1. /**************************************************************************\
  2.            $VER: CNet Who CONFIG, v2.51 (15-Oct-95) by Dotoran!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch;mg=maygetchar
  6. a='rexxsupport.library';if ~show('l',a) then if ~addlib(a,0,-30) then exit
  7. gu 70;a=result;gu 1302246;b=result;if a='' then a=upper(b);b=index('W  WH WHO',left(a,3))
  8. if b=0 then do;tr 'n1c9MISSING ARGUMENT!';exit;end;v=b%3+1;vw=word('SHORT NORMAL LONG',v);call SETUP
  9. changewhere "CNet Who Config";call READCONFIG;signal SCREEN1
  10. START:;se 'z7c4'it.sc.it'z0';gc;a=result
  11. START2:;do 2;mg;b=result;end;if a=d2c(13) then signal START3
  12.   if b='A' then do;ii=it;do until gh.sc.it=0;a=pos(right(it,2,'0')'-',zU.sc)+3;it=strip(substr(zU.sc,a,2),'l','0');end;end
  13.   if b='B' then do;ii=it;do until gh.sc.it=0;a=pos(right(it,2,'0')'-',zD.sc)+3;it=strip(substr(zD.sc,a,2),'l','0');end;end
  14.   if b='C' then do;ii=it;if index(z.sc,' '||it||' ')>0 then do;do until gh.sc.it=0;a=pos(right(it,2,'0')'-',zR.sc)+3;it=strip(substr(zR.sc,a,2),'l','0');end;end;end
  15.   if b='D' then do;ii=it;if index(z.sc,' '||it||' ')>0 then do;do until gh.sc.it=0;a=pos(right(it,2,'0')'-',zL.sc)+3;it=strip(substr(zL.sc,a,2),'l','0');end;end;end
  16.   if index('ABCD',b)>0 then do;se 'z4c7'it.sc.ii'z0';se 'z4c7'it.sc.it'z0';end;signal START
  17. START3:;if sc=1 then signal MAIN;if sc=2 then signal COLORS;if sc=3 then signal TOGGLES;if sc=4 then signal GOODBYE
  18. MAIN:;a="MAIN"||it;signal (a);MAIN1:;signal SCREEN2;MAIN2:;signal SCREEN3;MAIN3:;signal SCREEN4
  19. MAIN4:;se '3H';call EDIT(s0.1,4,1);if result>'' then do;save=1;s0.1=result;end;se '3Hc3'left(s0.1,4);signal START
  20. MAIN5:;se '3H';call EDIT(s0.2,20,1);if result>'' then do;save=1;s0.2=result;end;se '3Hc3'left(s0.2,20);signal START
  21. MAIN6:;se '3H';call EDIT(s0.3,6,1);if result>'' then do;save=1;s0.3=result;end;se '3Hc3'left(s0.3,6);signal START
  22. MAIN7:;se '3H';call EDIT(s0.4,4,1);if result>'' then do;save=1;s0.4=result;end;se '3Hc3'left(s0.4,4);signal START
  23. MAIN8:;se '23H';call EDIT(s0.5,24,1);if result>'' then do;save=1;s0.5=result;end;se '23Hc3'left(s0.5,24);signal START
  24. MAIN9:;se '23H';call EDIT(s0.6,17,1);if result>'' then do;save=1;s0.6=result;end;se '23Hc3'left(s0.6,17);signal START
  25. MAIN10:;se '23H';call EDIT(s0.7,8,1);if result>'' then do;save=1;s0.7=result;end;se '23Hc3'left(s0.7,8);signal START
  26. MAIN11:;se '23H';call EDIT(s0.8,8,1);if result>'' then do;save=1;s0.8=result;end;se '23Hc3'left(s0.8,8);signal START
  27. MAIN12:;se '23H';call EDIT(s0.9,1,0);if result>'' then do;save=1;s0.9=result;end;se '23Hc3's0.9' 'copies(s0.9,20);signal START
  28. MAIN13:;se '23H';call EDIT(s0.10,1,0);if result>'' then do;save=1;s0.10=result;end;se '23Hc3's0.10' 'copies(s0.10,20);signal START
  29. MAIN14:;se "1Hc3Use CNet's Default Color Scheme? [No]: ";gc;a=result;if a~="Y" then do;tr "No.1H";signal START;end;else tr "Yes!"
  30.   con1.v=df.1.1;con2.v=df.1.2;con3.v=df.1.3;con4.v=df.1.4;call READCONFIG2;save=1;signal SCREEN1
  31. MAIN15:;se "1Hc3Use Dotoran's Frontiers Color Scheme? [No]: ";gc;a=result;if a~="Y" then do;tr "No.1H";signal START;end;else tr "Yes!"
  32.   con1.v=df.2.1;con2.v=df.2.2;con3.v=df.2.3;con4.v=df.2.4;call READCONFIG2;save=1;signal SCREEN1
  33. MAIN16:;signal LAYOUT
  34. MAIN17:;se '7H';call m2(1);signal START
  35. MAIN18:;se '7H';call m2(3);signal START
  36. MAIN19:;se '7H';call m2(5);signal START
  37. MAIN20:;se '7H';call m2(7);signal START
  38. MAIN21:;se '57H';call m2(9);signal START
  39. MAIN22:;se '57H';call m2(11);signal START
  40. MAIN23:;se '57H';call m2(13);signal START
  41. MAIN24:;se '57H';call m2(15);signal START
  42. MAIN25:;se '57H';call m2(17);signal START
  43. MAIN26:;se '57H';call m2(19);signal START
  44. MAIN27:;se "1Hc3You wish to create the z4c7"vw"z0 c3who module? [Yes]: ";gc;a=result
  45.   if a="N" then do;tr "No.1H";signal START;end;tr "Yes!1H";call SAVECONFIG
  46.   tr '51Hc3Creating c6'vw' WHOc3...#0pfiles:who/MakeWho 'v'}b151H';signal START
  47. MAIN28:;se "1Hc3You wish to create z4c7ALLz0 c3who modules? [Yes]: ";gc;a=result
  48.   if a="N" then do;tr "No.1H";signal START;end;tr "Yes!1H";call SAVECONFIG
  49.   tr '51Hc3Creating c6ALL WHO FILESc3...#0pfiles:who/MakeWho 0}b151H';signal START
  50. MAIN29:;se '9H';call m1(2);signal START
  51. MAIN30:;se '9H';call m1(4);signal START
  52. MAIN31:;se '9H';call m1(6);signal START
  53. MAIN32:;se '9H';call m1(8);signal START
  54. MAIN33:;se '69H';call m1(10);signal START
  55. MAIN34:;se '69H';call m1(12);signal START
  56. MAIN35:;se '69H';call m1(14);signal START
  57. MAIN36:;se '69H';call m1(16);signal START
  58. MAIN37:;se '69H';call m1(18);signal START
  59. MAIN38:;se '69H';call m1(20);signal START
  60. M1:;arg a;b=index(mci1,s1.a);if b>15 then b=0;c=EDIT(s1.a,1,0);if index(mci1,c)=0|c=s1.a then c=substr(mci1,b+1,1);s1.a=c;save=1;tr 'uc3'c;return c
  61. M2:;arg a;b=index(mci2,s1.a);if b>7 then b=0;c=EDIT(s1.a,1,2);if index(mci2,c)=0|c=s1.a then c=substr(mci2,b+1,1);s1.a=c;save=1;tr 'uc3'c;return c
  62. COLORS:;a="COLORS"||it;signal (a);COLORS1:;signal SCREEN3;COLORS2:;signal SCREEN4;COLORS3:;signal SCREEN1
  63. COLORS4:;se '3Hcb';call c1(1);signal START
  64. COLORS5:;se '3Hcb';call c1(2);signal START
  65. COLORS6:;se '3Hcb';call c1(3);signal START
  66. COLORS7:;se '3Hcb';call c1(4);signal START
  67. COLORS8:;se '23Hcb';call c1(5);signal START
  68. COLORS9:;se '23Hcb';call c1(6);signal START
  69. COLORS10:;se '23Hcb';call c1(7);signal START
  70. COLORS11:;se '23Hcb';call c1(8);signal START
  71. COLORS12:;se '23Hcb';call c1(9);signal START
  72. COLORS13:;se '23Hcb';call c1(10);signal START
  73. COLORS14:;se '23Hcb';call c1(11);signal START
  74. COLORS15:;se '23Hcb';call c1(12);signal START
  75. COLORS16:;se '23Hcb';call c1(13);signal START
  76. COLORS17:;se '23Hcb';call c1(14);signal START
  77. COLORS18:;se '23H';call EDIT(s2.29,4,0);if result>'' then do;save=1;s2.29=result;end;se '23Hc3'left(s2.29,4);signal START
  78. COLORS19:;se '23H';call EDIT(s2.32,4,0);if result>'' then do;save=1;s2.32=result;end;se '23Hc3'left(s2.32,4);signal START
  79. COLORS20:;signal LAYOUT
  80. COLORS21:;se '5Hcb';call c1(15);signal START
  81. COLORS22:;se '5Hcb';call c1(16);signal START
  82. COLORS23:;se '5Hcb';call c1(17);signal START
  83. COLORS24:;se '5Hcb';call c1(18);signal START
  84. COLORS25:;se '55Hcb';call c1(19);signal START
  85. COLORS26:;se '55Hcb';call c1(20);signal START
  86. COLORS27:;se '55Hcb';call c1(21);signal START
  87. COLORS28:;se '55Hcb';call c1(22);signal START
  88. COLORS29:;se '55Hcb';call c1(23);signal START
  89. COLORS30:;se '55Hcb';call c1(24);signal START
  90. COLORS31:;se '55Hcb';call c1(25);signal START
  91. COLORS32:;se '55Hcb';call c1(26);signal START
  92. COLORS33:;se '55Hcb';call c1(27);signal START
  93. COLORS34:;se '55Hcb';call c1(28);signal START
  94. COLORS35:;se '39Hcb';call c1(30);signal START
  95. COLORS36:;se '39Hcb';call c1(33);signal START
  96. COLORS37:;se '55Hcb';call c2(31);signal START
  97. COLORS38:;se '55Hcb';call c2(34);signal START
  98. C1:;arg a;b=index(mci1,s2.a);if b>15 then b=0;c=EDIT(s2.a,1,0);if index(mci1,c)=0|c=s2.a then c=substr(mci1,b+1,1);s2.a=c;save=1;tr 'uc3'c;return c
  99. C2:;arg a;b=index(mci2,s2.a);if b>7 then b=0;c=EDIT(s2.a,1,2);if index(mci2,c)=0|c=s2.a then c=substr(mci2,b+1,1);s2.a=c;save=1;tr 'uc3'c;return c
  100. TOGGLES:;a="TOGGLES"||it;signal (a);TOGGLES1:;signal SCREEN2;TOGGLES2:;signal SCREEN4;TOGGLES3:;signal SCREEN1
  101. TOGGLES4:;if s3.1=0 then s3.1=1;else s3.1=0;save=1;se '3Hc3'left(subword('No Yes',s3.1+1,1),3);signal START
  102. TOGGLES5:;if s3.2=0 then s3.2=1;else s3.2=0;save=1;se '3Hc3'left(subword('No Yes',s3.2+1,1),3);signal START
  103. TOGGLES6:;if s3.3=0 then s3.3=1;else s3.3=0;save=1;se '3Hc3'left(subword('No Yes',s3.3+1,1),3);signal START
  104. TOGGLES7:;if s3.4=0 then s3.4=1;else s3.4=0;save=1;se '3Hc3'left(subword('No Yes',s3.4+1,1),3);signal START
  105. TOGGLES8:;if s3.5=0 then s3.5=1;else s3.5=0;save=1;se '23Hc3'left(subword('No Yes',s3.5+1,1),3);signal START
  106. TOGGLES9:;if s3.10=0 then s3.10=1;else s3.10=0;save=1;se '23Hc3'left(subword('No Yes',s3.10+1,1),3);signal START
  107. TOGGLES10:;if s3.11=0 then s3.11=1;else s3.11=0;save=1;se '23Hc3'left(subword('No Yes',s3.11+1,1),3);signal START
  108. TOGGLES11:;call open(f1,'pfiles:Who/IdlePorts','r');a=word(readln(f1),1);do i=1 to a;b=readln(f1);parse var b p'|'info;call setclip('IdleWhoB'p,info);end i;call close(f1);tr 'b1';signal START
  109. TOGGLES12:;if s3.9=0 then s3.9=1;else s3.9=0;save=1;se '5Hc3'left(subword('No Yes',s3.9+1,1),3);signal START
  110. TOGGLES13:;if s3.6=0 then s3.6=1;else s3.6=0;save=1;se '5Hc3'left(subword('No Yes',s3.6+1,1),3);signal START
  111. TOGGLES14:;se '5H';call EDIT(s3.7,2,2);if result>'' then s3.7=result;save=1;se '5Hc3'left(s3.7,2);signal START
  112. TOGGLES15:;se '5H';call EDIT(s3.8,2,2);if result>'' then s3.8=result;save=1;se '5Hc3'left(s3.8,2);signal START
  113. TOGGLES16:;se '55H';call EDIT(fake%10,3,2);if result>'' then fake=result*10;save=1;se '55Hc3'left(fake%10,3);signal START
  114. GOODBYE:;a="GOODBYE"||it;signal (a)
  115. GOODBYE1:;signal SCREEN1
  116. GOODBYE2:;tr 'f1n2';call SAVECONFIG;exit
  117. GOODBYE3:;tr 'f1n2';exit
  118. SETUP:;changewhere "Who CONFIG";save=0;mci1='0123456789abcdef';mci2='01234567'
  119.   gd.1.1='1967810111219202123242528313233353637x'
  120.   gd.1.2='30789111213141516171819212223242526272829303132333435363738x'
  121.   gd.1.3='456910x';gd.2.1='1010111223242528353637x'
  122.   gd.2.2='261112131516171819212223242526272829303132333435363738x'
  123.   gd.2.3='36910x';gd.3.1='00x';gd.3.2='00x';gd.3.3='00x'
  124.   z.1=' 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 '
  125.   zR.1='03-16-03-04-17-29-04-05-18-30-05-06-19-31-06-07-20-32-07-08-21-33-08-09-22-34-09-10-23-35-10-11-24-36-11-12-25-37-12-13-26-38-13-14-27-14-15-28-15'
  126.   zL.1='28-15-28-27-14-27-38-26-13-38-37-25-12-37-36-24-11-36-35-23-10-35-34-22-09-34-33-21-08-33-32-20-07-32-31-19-06-31-30-18-05-30-29-17-04-29-16-03-16'
  127.   zD.1='01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-01-16-17-18-19-20-21-22-23-24-25-26-27-28-16-29-30-31-32-33-34-35-36-37-38-27'
  128.   zU.1='28-27-38-37-36-35-34-33-32-31-30-29-16-28-26-25-24-23-22-21-20-19-18-17-16-15-14-13-12-11-10-09-08-07-06-05-04-03-02-01-15'
  129.   it.1.1 ='HEdit Data Colors   >>';it.1.2 ='HToggle Switches    >>';it.1.3 ='H<< Exit              ';it.1.4 ='HPort Heading        :'
  130.   it.1.5 ='HHandle Heading      :';it.1.6 ='HLogon Heading       :';it.1.7 ='HCPS Heading         :';it.1.8 ='1HLocation Heading    :'
  131.   it.1.9 ='1HWhere Heading       :';it.1.10='1HMale   Gender Text  :';it.1.11='1HFemale Gender Text  :';it.1.12='1HSeparator Char Line :'
  132.   it.1.13='1HTerminate Char Line :';it.1.14='1HUse CNet "Stock" BBS ';it.1.15='1HUse "Frontiers"  BBS ';it.1.16='1HSHOW EXAMPLE LAYOUT  '
  133.   it.1.17='1H BG :';it.1.18='1H BG :';it.1.19='1H BG :';it.1.20='1H BG :';it.1.21='51H BG :';it.1.22='51H BG :';it.1.23='51H BG :'
  134.   it.1.24='51H BG :';it.1.25='51H BG :';it.1.26='51H BG :';it.1.27='51HCREATE 'left(vw' WHO',10)'    ';it.1.28='51HCREATE ALL WHO FILES '
  135.   it.1.29='3H FG :';it.1.30='3H FG :';it.1.31='3H FG :';it.1.32='3H FG :';it.1.33='63H FG :';it.1.34='63H FG :';it.1.35='63H FG :'
  136.   it.1.36='63H FG :';it.1.37='63H FG :';it.1.38='63H FG :'
  137.   z.2=' 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 '
  138.   zR.2='03-20-03-04-21-04-05-22-05-06-23-06-07-24-07-08-25-08-09-26-09-10-27-10-11-28-11-12-29-12-13-30-13-14-31-14-15-32-15-16-33-16-17-34-17-18-35-37-18-19-36-38-19'
  139.   zL.2='38-36-19-38-37-35-18-37-34-17-34-33-16-33-32-15-32-31-14-31-30-13-30-29-12-29-28-11-28-27-10-27-26-09-26-25-08-25-24-07-24-23-06-23-22-05-22-21-04-21-20-03-20'
  140.   zD.2='01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-01-20-21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-20'
  141.   zU.2='38-37-36-35-34-33-32-31-30-29-28-27-26-25-24-23-22-21-20-38-19-18-17-16-15-14-13-12-11-10-09-08-07-06-05-04-03-02-01-19'
  142.   it.2.1 ='H<< Toggle Switches   ';it.2.2 ='H<< Exit              ';it.2.3 ='H<< Previous Screen   ';it.2.4 ='HPort Number Digits  :'
  143.   it.2.5 ='HHide/Muffle Flags   :';it.2.6 ='HUser Handle Text    :';it.2.7 ='HLogon  Time Text    :';it.2.8 ='1HCPS Speed Text      :'
  144.   it.2.9 ='1HCity/State/Country  :';it.2.10='1HWhere Text String   :';it.2.11='1HLast Call Date Text :';it.2.12='1HHistory * Flag      :'
  145.   it.2.13='1HTime Today Minutes  :';it.2.14='1HWho Banner Text     :';it.2.15='1HGlimpse Text Color  :';it.2.16='1HColons After LC/TT  :'
  146.   it.2.17='1HAgain/Handle/Misc...:';it.2.18='1HLast Call Date Text :';it.2.19='1HTime Used Today Text:';it.2.20='3HSHOW EXAMPLE LAYOUT  '
  147.   it.2.21='3HCommand Keywords    :';it.2.22='3HCommand Brackets    :';it.2.23='3HOther Command Text  :';it.2.24='3HHistory/Histories...:'
  148.   it.2.25='33HWho/Port, etc...    :';it.2.26='33HQuit/User, etc...   :';it.2.27='33HHistory Title Bar   :';it.2.28='33HDefault History Text:'
  149.   it.2.29='33HBanners Title Bar   :';it.2.30='33HBanner SubTitles    :';it.2.31='33HSubTitle Underscores:';it.2.32='33HWord "Banner"       :'
  150.   it.2.33='33HBanner Number       :';it.2.34='33HBanner Colons       :';it.2.35='33H FG :';it.2.36='33H FG :';it.2.37='49H BG :';it.2.38='49H BG :'
  151.   z.3=' 3 4 5 6 7 8 11 12 13 14 15 16 ';zR.3='03-11-03-04-12-04-05-13-05-06-14-06-07-15-07-08-16-08'
  152.   zL.3='16-08-16-15-07-15-14-06-14-13-05-13-12-04-12-11-03-11';zD.3='01-02-03-04-05-06-07-08-09-10-01-11-12-13-14-15-16-11'
  153.   zU.3='16-15-14-13-12-11-16-10-09-08-07-06-05-04-03-02-01-10';it.3.1 ='H<< Edit Data Colors  '
  154.   it.3.2 ='H<< Exit              ';it.3.3 ='H<< Previous Screen   '
  155.   it.3.4 ='HShow Idle Minutes   :';it.3.5 ='HShow Idle Banners   :'
  156.   it.3.6 ='HMultiple Banners    :';it.3.7 ='HSkip Idle Ports     :'
  157.   it.3.8 ='1HSkip Hidden Ports   :';it.3.9 ="1HAllow Banner MCI's  :"
  158.   it.3.10="1HAllow SysOp  MCI's  :";it.3.11='3HReLoad "IdlePorts"   '
  159.   it.3.12='3HClear Screen Before :';it.3.13='3HEmpty Port Block    :'
  160.   it.3.14='3HPort to Skip FROM   :';it.3.15='3HPort to Skip TO     :'
  161.   it.3.16='33HFake Idle Minutes?  :'
  162.   z.4=' 2 3 ';zR.4='02-03-02';zL.4='03-02-03';zD.4='01-02-01-03-03'
  163.   zU.4='03-03-02-01-02';it.4.1='H<< Abort Exit        '
  164.   it.4.2='HSave changes         ';it.4.3='6HExit without saving  '
  165.   df.1.1='PortUser nameLogonSpdFromWhereMaleFemale-=x'
  166.   df.1.2='01010101010174710202x'
  167.   df.1.3='7377766737577777777777777777LC07TT07x'
  168.   df.1.4='11100000110x'
  169.   df.2.1='PortUser HandleLogonSpdFromWhereMaleFemale-=x'
  170.   df.2.2='6464646464644f1b060cx'
  171.   df.2.3='fbedb69ab9adfea76fbdea9eadbaLC46TT46x'
  172.   df.2.4='11100000110x'; return
  173. LAYOUT:;do i=1 to 19 by 2;c.i='z's1.i;end i;do i=2 to 20 by 2;c.i='c's1.i;end i
  174.   do i=1 to 34;k.i='c's2.i;end i;k.31='z's2.31;k.34='z's2.34
  175.   if v=1 then do;tr 'f1n3'c.1||c.2||left(s0.1,4)'z0 'c.3||c.4||left(s0.2,20)'z0 'c.11||c.12||left(s0.6,17)'z0'
  176.   tr c.19||c.20||copies(s0.10,4)'z0 'c.19||c.20||copies(s0.10,20)'z0 'c.19||c.20||copies(s0.10,17)'z0'
  177.   tr k.1' 0 'k.2'+ 'k.3'Dotoran              'k.7'Idle 'k.2'7 'k.8'Minutes';tr k.1' 1 'k.2'h 'k.3'Seductress           'k.7'Long WHO'
  178.   tr k.1' 2   'k.3'<No One>             'k.7'Idle 'k.2'12 'k.8'Minutes';tr c.19||c.20||copies(s0.10,43)'z0n2';tr 'c7Press any key...g1';end
  179.   if v=2 then do;tr 'f1n3'c.1||c.2||left(s0.1,4)'z0 'c.3||c.4||left(s0.2,20)'z0 'c.5||c.6||left(s0.3,6)'z0 'c.7||c.8||left(s0.4,3)'z0 'c.9||c.10||left(s0.5,24)'z0 'c.11||c.12||left(s0.6,17)'z0'
  180.   tr c.19||c.20||copies(s0.10,4)'z0 'c.19||c.20||copies(s0.10,20)'z0 'c.19||c.20||copies(s0.10,6)'z0 'c.19||c.20||copies(s0.10,3)'z0 'c.19||c.20||copies(s0.10,24)'z0 'c.19||c.20||copies(s0.10,17)'z0'
  181.   tr k.1' 0 'k.2'+ 'k.3'Dotoran               'k.4'8:06p 'k.5'576 'k.6'Buffalo, NY          USA 'k.7'Idle 'k.2'7 'k.8'Minutes'
  182.   tr 'C'k.11"I'm the SysOp Here! Type OL0! & Say Hi!";tr k.1' 1 'k.2'h 'k.3'Seductress            'k.4'8:06p 'k.5'576 'k.6'Buffalo, NY          USA 'k.7'Long WHO'
  183.   tr 'C'k.11'Hey Good Looking, What Ya Got Cooking?';tr k.1' 2   'k.3'<This is a LOCAL Port used for TESTING Purposes>         'k.7'Idle 'k.2'12 'k.8'Minutes';tr c.19||c.20||copies(s0.10,79)'z0n2';tr 'c7Press any key...g1';end
  184.   if v=3 then do;tr 'f1n3'c.1||c.2||left(s0.1,4)'z0 'c.3||c.4||left(s0.2,20)'z0 'c.5||c.6||left(s0.3,6)'z0 'c.7||c.8||left(s0.4,3)'z0 'c.9||c.10||left(s0.5,24)'z0 'c.11||c.12||left(s0.6,17)'z0'
  185.   tr c.19||c.20||copies(s0.10,4)'z0 'c.19||c.20||copies(s0.10,20)'z0 'c.19||c.20||copies(s0.10,6)'z0 'c.19||c.20||copies(s0.10,3)'z0 'c.19||c.20||copies(s0.10,24)'z0 'c.19||c.20||copies(s0.10,17)'z0'
  186.   tr k.1' 0 'k.2'+ 'k.3'Dotoran               'k.4'8:06p 'k.5'576 'k.6'Buffalo, NY          USA 'k.7'Idle 'k.2'7 'k.8'Minutes'
  187.   tr k.30||k.31||center(s2.29,4)"z0"k.13": "k.8"23-Feb "c.13||c.14||center(s0.7,8)"z0 "k.9"*"k.33||k.34||center(s2.32,4)"z0"k.13": "k.10"48      "k.11"I'm the SysOp Here! Type OL0! & Say Hi!n1"
  188.   tr k.12'These three(3) lines are your personal "Glimpse" file, and may be edited by';tr 'pressing "G" from the prompt below. Your "History" file is a text file of up to'
  189.   tr '20 lines, where you may wish to supply even more "words of wisdom/info"!';tr c.17||c.18||copies(s0.9,79)'z0';tr k.1' 1 'k.2'h 'k.3'Seductress            'k.4'8:06p 'k.5'576 'k.6'Buffalo, NY          USA 'k.7'Long WHO'
  190.   tr k.30||k.31||center(s2.29,4)'z0'k.13': 'k.8'23-Feb 'c.15||c.16||center(s0.8,8)'z0 'k.9'*'k.33||k.34||center(s2.32,4)'z0'k.13': 'k.10'48      'k.11'Hey Good Looking, What Ya Got Cooking?';tr c.17||c.18||copies(s0.9,79)'z0'
  191.   tr k.1' 2   'k.3'<This is a LOCAL Port used for TESTING Purposes>         'k.7'Idle 'k.2'12 'k.8'Minutes';tr c.19||c.20||copies(s0.10,79)'z0'
  192.   tr k.17'Long 'k.19'Who 'k.16'['k.15'B'k.16']'k.15'anner'k.17', 'k.16'['k.15'G'k.16']'k.15'limpse'k.17', 'k.16'['k.15'V'k.16']'k.15'iew 'k.18'History'k.17', or 'k.16'['k.20'QUIT'k.16']'k.17': 'k.20'Quitn2'
  193.   tr 'c7Press any key...g1';tr 'f1';do i=1 to 34;k.i='c's2.i;end i;tr k.23'r1 Your Short Who Banners r0n1';tr k.24' Current Banner';tr k.25'~~~~~~~~~~~~~~~~'
  194.   tr k.26'Banner 'k.27'0'k.28': 'k.3"Hi, I'm New here! Buzz me and say Hi!n1"; tr k.24' Banners On File';tr k.25'~~~~~~~~~~~~~~~~~'
  195.   do i=1 to 9;tr k.26'Banner 'k.27||i||k.28': 'k.3"Extra Banner (Type WHO B to edit Banner!)";end i
  196.   tr 'n1'k.17'Edit 'k.16'['k.15'0'k.16'] 'k.17'thru 'k.16'['k.15'9'k.16']'k.17', 'k.16'['k.20'Q'k.16']'k.20'uit'k.17', or 'k.16'['k.15'P'k.16']'k.15'ick 'k.17'current? 'k.16'['k.15'Pick'k.16']'k.17': 'k.20'Quitn1'
  197.   tr 'c7Press any key...g1';end;a='SCREEN'sc;signal (a)
  198. READCONFIG:;call open(f1,'pfiles:who/Config.Data','r');line=readln(f1);do i=1 to 3
  199.   con1.i=readln(f1);con2.i=readln(f1);con3.i=readln(f1);con4.i=readln(f1);end i;call close(f1)
  200. READCONFIG2:;gh.=0;parse var line li107''li903''li1066''fak''li5''li4''j
  201.   parse var gd.v.1 gt''gd;do i=1 to gt;parse var gd g''gd;gh.1.g=1;end i
  202.   parse var gd.v.2 gt''gd;do i=1 to gt;parse var gd g''gd;gh.2.g=1;end i
  203.   parse var gd.v.3 gt''gd;do i=1 to gt;parse var gd g''gd;gh.3.g=1;end i
  204.   c1=con1.v;do i=1 to 10;parse var c1 s0.i''c1;end i
  205.   c2=con2.v;do i=1 to 20;parse var c2 s1.i''c2;end i
  206.   c3=con3.v;do i=1 to 34;parse var c3 s2.i''c3;end i
  207.   c4=con4.v;do i=1 to 11;parse var c4 s3.i''c4;end i;call BBSTEXT
  208.   if li4~=l4|li5~=l5|li107~=l107|li903~=l903|li1066~=l1066|fak~=fake then do
  209.     call SAVECONFIG;signal READCONFIG;end;return
  210. SAVECONFIG:;line=l107''l903''l1066''fake''l5''l4'x'
  211.   c1='';do i=1 to 10;c1=c1||s0.i'';end i;con1.v=c1'x';c2='';do i=1 to 20;c2=c2||s1.i'';end i;con2.v=c2'x'
  212.   c3='';do i=1 to 34;c3=c3||s2.i'';end i;con3.v=c3'x';c4='';do i=1 to 11;c4=c4||s3.i'';end i;con4.v=c4'x';save=0
  213.   call open(f1,'pfiles:who/Config.Data','w');call writeln(f1,line);do i=1 to 3;call writeln(f1,con1.i);call writeln(f1,con2.i)
  214.     call writeln(f1,con3.i);call writeln(f1,con4.i);end i;call close(f1);return
  215. SCREEN1:;sc=1;it=3;tr 'f1@4z4c7Edit Data Colors   >>z0Cz7ccCNet/3 VisualDataEditorz0'
  216.   tr 'z4c7Toggle Switches    >>z0Cz7ccUse cursor keys; ENTER to selectz0n1'
  217.   tr 'z4c7<< Exit              z0Cz4c7SHOW EXAMPLE LAYOUT  z0n1'
  218.   tr 'z4c7Port Heading        :z0 c3'left(s0.1,28)'z4c7 BG :z0 c3's1.1'Cz4c7 FG :z0 c3's1.2
  219.   tr 'z4c7Handle Heading      :z0 c3'left(s0.2,28)'z4c7 BG :z0 c3's1.3'Cz4c7 FG :z0 c3's1.4
  220.   tr 'z4c'g1(6)'Logon Heading       :z0 c'g2(6)||left(s0.3,28)'z4c'g1(19)' BG :z0 c'g2(19)||s1.5'Cz4c'g1(31)' FG :z0 c'g2(31)||s1.6
  221.   tr 'z4c'g1(7)'CPS Heading         :z0 c'g2(7)||left(s0.4,28)'z4c'g1(20)' BG :z0 c'g2(20)||s1.7'Cz4c'g1(32)' FG :z0 c'g2(32)||s1.8
  222.   tr 'z4c'g1(8)'Location Heading    :z0 c'g2(8)||left(s0.5,28)'z4c'g1(21)' BG :z0 c'g2(21)||s1.9'Cz4c'g1(33)' FG :z0 c'g2(33)||s1.10
  223.   tr 'z4c7Where Heading       :z0 c3'left(s0.6,28)'z4c7 BG :z0 c3's1.11'Cz4c7 FG :z0 c3's1.12'n1'
  224.   tr 'z4c'g1(10)'Male   Gender Text  :z0 c'g2(10)||left(s0.7,28)'z4c'g1(23)' BG :z0 c'g2(23)||s1.13'Cz4c'g1(35)' FG :z0 c'g2(35)||s1.14
  225.   tr 'z4c'g1(11)'Female Gender Text  :z0 c'g2(11)||left(s0.8,28)'z4c'g1(24)' BG :z0 c'g2(24)||s1.15'Cz4c'g1(36)' FG :z0 c'g2(36)||s1.16'n1'
  226.   tr 'z4c'g1(12)'Separator Char Line :z0 c'g2(12)||s0.9' 'copies(s0.9,20)'Cz4c'g1(25)' BG :z0 c'g2(25)||s1.17'Cz4c'g1(37)' FG :z0 c'g2(37)||s1.18
  227.   tr 'z4c7Terminate Char Line :z0 c3's0.10' 'copies(s0.10,20)'Cz4c7 BG :z0 c3's1.19'Cz4c7 FG :z0 c3's1.20'n1'
  228.   tr 'z4c7Use CNet "Stock" BBS z0Cz4c7CREATE 'left(vw' WHO',10)'    z0'
  229.   tr 'z4c7Use "Frontiers"  BBS z0Cz4c'g1(28)'CREATE ALL WHO FILES z0';signal START
  230. SCREEN2:;sc=2;it=3;tr 'f1@4z4c7<< Toggle Switches   z0Cz7ccCNet/3 VisualDataEditorz0'
  231.   tr 'Cz7ccUse cursor keys; ENTER to selectz0';tr 'z4c7<< Exit              z0'
  232.   tr 'z4c7<< Previous Screen   z0Cz4c7SHOW EXAMPLE LAYOUT  z0n1'
  233.   tr 'z4c7Port Number Digits  :z0 c3's2.1'Cz4c'g1(21)'Command Keywords    :z0 c'g2(21)||s2.15
  234.   tr 'z4c7Hide/Muffle Flags   :z0 c3's2.2'Cz4c'g1(22)'Command Brackets    :z0 c'g2(22)||s2.16
  235.   tr 'z4c7User Handle Text    :z0 c3's2.3'Cz4c'g1(23)'Other Command Text  :z0 c'g2(23)||s2.17
  236.   tr 'z4c'g1(7)'Logon  Time Text    :z0 c'g2(7)||s2.4'Cz4c'g1(24)'History/Histories...:z0 c'g2(24)||s2.18
  237.   tr 'z4c'g1(8)'CPS Speed Text      :z0 c'g2(8)||s2.5'Cz4c'g1(25)'Who/Port, etc...    :z0 c'g2(25)||s2.19
  238.   tr 'z4c'g1(9)'City/State/Country  :z0 c'g2(9)||s2.6'Cz4c'g1(26)'Quit/User, etc...   :z0 c'g2(26)||s2.20
  239.   tr 'z4c7Where Text String   :z0 c3's2.7'Cz4c'g1(27)'History Title Bar   :z0 c'g2(27)||s2.21
  240.   tr 'z4c'g1(11)'Last Call Date Text :z0 c'g2(11)||s2.8'Cz4c'g1(28)'Default History Text:z0 c'g2(28)||s2.22
  241.   tr 'z4c'g1(12)'History * Flag      :z0 c'g2(12)||s2.9'Cz4c'g1(29)'Banners Title Bar   :z0 c'g2(29)||s2.23
  242.   tr 'z4c'g1(13)'Time Today Minutes  :z0 c'g2(13)||s2.10'Cz4c'g1(30)'Banner SubTitles    :z0 c'g2(30)||s2.24
  243.   tr 'z4c'g1(14)'Who Banner Text     :z0 c'g2(14)||s2.11'Cz4c'g1(31)'SubTitle Underscores:z0 c'g2(31)||s2.25
  244.   tr 'z4c'g1(15)'Glimpse Text Color  :z0 c'g2(15)||s2.12'Cz4c'g1(32)'Word "Banner"       :z0 c'g2(32)||s2.26
  245.   tr 'z4c'g1(16)'Colons After LC/TT  :z0 c'g2(16)||s2.13'Cz4c'g1(33)'Banner Number       :z0 c'g2(33)||s2.27
  246.   tr 'z4c'g1(17)'Again/Handle/Misc...:z0 c'g2(17)||s2.14'Cz4c'g1(34)'Banner Colons       :z0 c'g2(34)||s2.28'n1'
  247.   tr 'z4c'g1(18)'Last Call Date Text :z0 c'g2(18)||left(s2.29,4)'Cz4c'g1(35)' FG :z0 c'g2(35)||s2.30'Cz4c'g1(37)' BG :z0 c'g2(37)||s2.31
  248.   tr 'z4c'g1(19)'Time Used Today Text:z0 c'g2(19)||left(s2.32,4)'Cz4c'g1(36)' FG :z0 c'g2(36)||s2.33'Cz4c'g1(38)' BG :z0 c'g2(38)||s2.31;signal START
  249. SCREEN3:;sc=3;it=3;tr 'f1@4z4c7<< Edit Data Colors  z0Cz7ccCNet/3 VisualDataEditorz0'
  250.   tr 'Cz7ccUse cursor keys; ENTER to selectz0';tr 'z4c7<< Exit              z0'
  251.   tr 'z4c7<< Previous Screen   z0Cz4c7ReLoad "IdlePorts"   z0n1'
  252.   tr 'z4c7Show Idle Minutes   :z0 c3'left(subword('No Yes',s3.1+1),3)'Cz4c7Clear Screen Before :z0 c3'left(subword('No Yes',s3.9+1),3)
  253.   tr 'z4c'g1(5)'Show Idle Banners   :z0 c'g2(5)||left(subword('No Yes',s3.2+1),3)'Cz4c7Empty Port Block    :z0 c3'left(subword('No Yes',s3.6+1),3)
  254.   tr 'z4c'g1(6)'Multiple Banners    :z0 c'g2(6)||left(subword('No Yes',s3.3+1),3)'Cz4c7Port to Skip FROM   :z0 c3'left(s3.7,2)
  255.   tr 'z4c7Skip Idle Ports     :z0 c3'left(subword('No Yes',s3.4+1),3)'Cz4c7Port to Skip TO     :z0 c3'left(s3.8,2)
  256.   tr 'z4c7Skip Hidden Ports   :z0 c3'left(subword('No Yes',s3.5+1),3)'Cz4c7Fake Idle Minutes?  :z0 c3'left(fake%10,3)
  257.   tr "z4c"g1(9)"Allow Banner MCI's  :z0 c"g2(9)||left(subword('No Yes',s3.10+1),3)
  258.   tr "z4c"g1(10)"Allow SysOp  MCI's  :z0 c"g2(10)||left(subword('No Yes',s3.11+1),3);signal START
  259. SCREEN4:;sc=4;it=2;if save=0 then do;tr 'f1n2';exit;end;tr 'f1z4c7                     z0Cz7ccCNet/3 VisualDataEditorz0'
  260.   tr 'z4c7<< Abort Exit        z0Cz7ccUse cursor keys; ENTER to selectz0n1'
  261.   tr 'z4c7Save changes         z0Cz4c7Exit without saving  z0';signal START
  262. G1:;arg a;return substr('70',gh.sc.a+1,1)
  263. G2:;arg a;return substr('30',gh.sc.a+1,1)
  264. EDIT:;parse arg v1,v2,v3;z=0;if v3=1 then z=16;if v3=2 then z=64;se "L1305640 #"v1"}sz3c4V1305640 %-"v2"."v2"s}uI"4100+z" "v2"}z0";gu 70;return result
  265. BBSTEXT:;l4=BBSLINE(1,4);l5=BBSLINE(1,5);l107=BBSLINE(1,107);l903=BBSLINE(1,903);l1066=BBSLINE(1,1066);fake=430;return
  266. BBSLINE: procedure;arg ty,li;getuser 1402018+(ty*4);ln=import(import(offset(x2c(d2x(result,8)),(li-1)*4),4),1024);parse var ln ln'00'x .;return ln
  267. SYNTAX:;ERROR:;IOERR:;e1=' Error: 'rc' ('errortext(rc)')';e2='  Line: 'left(sigl,4)'File:';gu 1311992;a=result
  268.   gu 1311960;b=result;c='"'a||b'"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2;e=sourceline(sigl)
  269.   do while e~='';e3='Source: 'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  270. /** Last Edited: 15-Oct-95 ************************************************\
  271. \****************************************** Frontiers BBS (716)/823-9892 **/
  272.